norms_irt <- mirt(data = norms,
                  model = 1,
                  verbose = T)

print(norms_irt)
print(summary(norms_irt))